home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 48
/
048side1.d81
/
air miles
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
176 lines
140 gosub60100
160 print"[145] one moment please..reading city data":gosub740
180 printchr$(147)
190 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] "
200 print" [194] [158]air miles [194] "
210 print" [194] [194] "
220 print" [194] [156][1[156]] view list of cities [194] "
230 print" [194] [194] "
240 print" [194] [156][2[156]] find distance between cities [194] "
250 print" [194] [194] "
260 print" [194] [156][3[156]] exit program [194] "
270 print" [194] [194] "
280 print" [194] [156]select 1 [156]- 3 [194] "
290 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] "
300 gosub600
310 getms$:ifms$=""then310
320 ms=val(ms$):ifms<1orms>3then310
330 onmsgoto1450,360,350
340 goto310
350 print"[147]":open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
352 ifer<>63thenend
354 load"hello connect",8
360 r=3963.34:gosub600:le=25:al=1:nu=.
370 print" [156]name of 1st city:";:gosub60500:c1$=c$:gosub620:gosub480:y1=ra
380 d1=v:ifv$=""then1610
390 gosub650:gosub480:x1=ra:d2=v:gosub600
400 print" [156]name of 2nd city:";:gosub60500:c2$=c$:gosub680:gosub480:y2=ra
410 d3=v:ifv$=""then1610
420 gosub710:gosub480:x2=ra:d4=v
430 ifd1<>d3theny2=-y2
440 ifd2<>d4thenx2=-x2
450 a=sin(y1):b=sin(y2)
460 c=cos(y1):d=cos(y2):e=cos(x2-x1)
470 goto500
480 dd=m/60+d:ra=dd/57.2957795
490 return
500 f=(a*b)+(c*d*e)
510 ff=-atn(f/sqr(-f*f+1))+((NULL)/2):d=r*ff:d%=d
520 print:print"[145][145][145][145] the distance between ":print
530 print" "c1$ " [156]and "c2$" ":print" "
540 print" [156]is.....";d%;" miles[156].":print
550 print" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] "
560 print" [156]press space bar [156]for menu":gosub600
570 getan$:ifan$=""then570
580 ifasc(an$)=32thenprint"[147]":goto190
590 goto570
600 getkb$:ifkb$<>""then600
610 return
620 forj=1toqnstep7
630 ifc1$=c$(j)thend$=c$(j+1):gosub2000:return
640 next:v$="":return
650 forj=1toqnstep7
660 ifc1$=c$(j)thend$=c$(j+4):gosub2100:return
670 next:return
680 forj=1toqnstep7
690 ifc2$=c$(j)thend$=c$(j+1):gosub2200:return
700 next:v$="":return
710 forj=1toqnstep7
720 ifc2$=c$(j)thend$=c$(j+4):gosub2300:return
730 next:return
740 dimc$(483)
750 forj=1to483:reada$:c$(j)=a$:next:qn=j-1:return
760 data albuquerque,35,0,n,106,9,w
770 data amsterdam,53,23,n,4,54,e
780 data antwerp,51,13,n,4,25,e
790 data athens,37,58,n,23,46,e
800 data atlanta,33,50,n,84,24,w
810 data baltimore,39,18,n,76,37,w
820 data belfast,54,35,n,5,56,w
830 data belgrade,44,50,n,20,37,e
840 data berlin,52,32,n,13,24,e
850 data boston,42,20,n,71,0,w
860 data buenos aires,34,30,s,58,20,w
870 data buffalo,42,55,n,78,50,w
880 data cairo,30,1,n,31,14,e
890 data cape town,33,56,s,18,28,e
900 data caracas,10,30,n,66,50,w
910 data chicago,41,45,n,87,40,w
920 data cincinnati,39,10,n,84,26,w
930 data columbus,38,57,n,83,1,w
940 data cleveland,41,28,n,81,43,w
950 data dallas,32,47,n,96,48,w
960 data denver,39,43,n,105,1,w
970 data detroit,42,20,n,83,3,w
980 data dublin,53,20,n,6,15,w
990 data erie,42,10,n,80,7,w
1000 data fairbanks,64,59,n,147,40, w
1010 data geneva,46,12,n,6,9,e
1020 data greensboro,36,7,n,79,46,w
1030 data hartford,41,47,n,72,41,w
1040 data hong kong,22,11,n,114,14,e
1050 data honolulu,21,19,n,157,52,w
1060 data houston,29,50,n,95,20,w
1070 data indianapolis,39,42,n,86,10,w
1080 data istanbul,41,0,n,29,0,e
1090 data jerusalem,31,47,n,35,10,e
1100 data johannesburg,26,10,s,28,8,e
1110 data kalamazoo,42,20,n,85,35,w
1120 data katmandu,27,45,n,85,12,e
1130 data las vegas,36,10,n,115,5,w
1140 data lisbon,39,0,n,9,12,w
1150 data london,51,30,n,0,5,w
1160 data los angeles,34,0,n,118,10,w
1170 data mexico city,19,20,n,99,10,w
1180 data miami,25,52,n,80,15,w
1190 data minneapolis,44,58,n,93,20,w
1200 data montreal,45,30,n,73,34,w
1210 data moscow,55,45,n,37,35,e
1220 data new orleans,30,0,n,90,5,w
1230 data new york,40,45,n,74,0,w
1240 data oklahoma city,35,25,n,97,30,w
1250 data omaha,41,15,n,96,0,w
1260 data paris,48,50,n,2,20,e
1270 data philadelphia,40,0,n,75,10,w
1280 data pittsburgh,40,25,n,79,55,w
1290 data phoenix,33,30,n,112,10,w
1300 data providence,41,41,n,71,15,w
1310 data quebec,46,52,n,71,13,w
1320 data reno,39,30,n,119,0,w
1330 data richmond,37,3,n,77,27,w
1340 data rio de janeiro,23,0,s,43,12,w
1350 data rome,41,54,n,12,30,e
1360 data san francisco,37,35,n,122,30,w
1370 data seattle,47,41,n,122,15,w
1380 data st. louis,38,40,n,90,20,w
1390 data spokane,47,45,n,117,25,w
1400 data tampa,27,57,n,82,30,w
1410 data tokyo,35,45,n,139,45,e
1420 data toronto,43,39,n,79,20,w
1430 data tucson,32,14,n,110,59,w
1440 data washington,38,52,n,77,0,w
1450 print"[147] [156]press return [146] [156]to scroll"
1460 print" press space bar[146] [156]for menu"
1465 print:printtab(7)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1470 poke650,255:forx=1toqnstep7
1480 printtab(7)"[180]"tab(13)c$(x)tab(32)"[170]"
1490 fort=1to50:next
1500 getpn$:ifpn$=""then1500
1510 ifpn$=chr$(13)then1540
1520 ifpn$=chr$(32)thenx=qn:goto180
1530 ifpn$<>chr$(13)orpn$<>chr$(32)then1500
1540 next
1550 printtab(7)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1560 print" [156]press space bar [156]for menu"
1570 gosub600
1580 getpn$:ifpn$=""then1580
1590 ifpn$=chr$(32)thenpoke650,0:goto180
1600 goto1580
1610 print" not on list. check menu item 1."
1620 fort=1to1500:next:print"[147]":goto190
2000 m$=c$(j+2):v$=c$(j+3):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
2100 m$=c$(j+5):v$=c$(j+6):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
2200 m$=c$(j+2):v$=c$(j+3):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
2300 m$=c$(j+5):v$=c$(j+6):d=val(d$):m=val(m$):v=asc(v$):j=qn:return
60100 poke53280, 0:poke53281, 0:print"[147][142]";
60101 print"[154]loadstarpresents:"
60102 print"[164][164][164][164][164][164][164][164][164][164][155][164][164][164][164][164][164][164][164][164][164][152][164][164][164][164][164][164][164][164][164][164][151][164][164][164][164][164][164][164][164][164][164][158]airmi";
60103 print"les"
60104 print"by:leobrennan"
60105 print"copyright1988"
60106 print"[151][163][163][163][163][163][163][163][163][163][163][152][163][163][163][163][163][163][163][163][163][163][155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154]pressspac";
60107 print"etocontinue"
60108 a=peek(203):ifa<>60then60108
60109 return
60500 c$="":poke198,.:print"[164]";
60510 fora=1tole+1
60520 geta$:ifa$=""then60520
60530 ifa$=chr$(13)thenprint"[157] ":return
60540 ifa$=chr$(20)anda>1thenprint"[157][157] [157][157][164]";:a=a-1:c$=left$(c$,a-1):goto60520
60550 if(a=le+1)then60520
60560 if(nu)and((a$>="0")and(a$<="9"))then60595
60570 if(al)and((a$>=" "anda$<="/")or(a$>=":"anda$<="z"))then60595
60580 if(al)thenif(a$>="[193]"anda$<="[218]")then60595
60590 goto60520
60595 print"[157]"a$;:poke212,.:print"[164]";:c$=c$+a$:next